1 REM SAVE"@0:SEQ CREATOR",8
5 DIM A$(500)
10 POKE53280,11:POKE53281,0:PRINT"[147][151]	";
20 PRINT"[147][197]NTER THE [198]ILE [206]UMBER THAT YOU WISH     TO CREATE..."
30 PRINT"[152]1[151] - [215]ELCOME [206]EW [213]SER [198]ILE"
40 PRINT"[152]2[151] - [215]ELCOME [213]SER [198]ILE"
50 PRINT"[152]3[151] - [193]DD A [194]ULLETIN [198]ILE"
60 PRINT"[152]4[151] - [194]ULLETIN [201]NFO [198]ILE"
70 PRINT"[152]5[151] - [212]HIS [211]YSTEM [198]ILE"
72 PRINT"[152]6[151] - [195]OMMANDS [204]IST"
75 PRINT"[152]0[151] - [209]UIT [212]HIS [208]ROGRAM"
80 PRINT"[206]UMBER -> ";
81 GETA$:IFA$=""THEN81
82 IFA$<"0"ORA$>"6"THEN81
83 PRINTA$:IFA$="0"THENPRINT"  [199]OOD [194]YE...";:END
90 ONVAL(A$)GOTO91,92,93,94,95,97
91 F$="WELCOME":GOTO100
92 F$="INTRO":GOTO100
93 F$="BULLETIN-":GOSUB1000:GOTO100
94 F$="BULLETINS":GOTO100
95 F$="THIS 1":GOTO100
97 F$="COMMANDS"
100 OPEN2,8,2,F$+",S,R":CLOSE2:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
101 PRINT"[147]"A;"[152]";B$;"[151][146]";C;D
102 IFA>0THENPRINT"[195]REATING A [206]EW [198]ILE...":A$(1)="":X=1:GOTO210
103 OPEN2,8,2,F$+",S,R":FORX=1TO1000
104 INPUT#2,A$(X):S=ST:IFSTHEN106
105 NEXTX:X=X-3
106 CLOSE2:M3=0:FORY=1TOX-1:FORW=1TOLEN(A$(Y)):A$=MID$(A$(Y),W,1):IFA$="
"THENA$=CHR$(34)
107 IFA$=CHR$(34)THENPRINTA$;CHR$(20);
108 PRINTA$;" [146][157][151]";:NEXTW:PRINT" ":M3=M3+1:IFM3>15THENGOSUB500:M3=0
109 NEXTY
110 PRINT"[[152][195][151]]ONTINUE  [[152][196][151]]ELETE    [[152][197][151]]DIT [204]INE"
120 PRINT"[[152][198][151]]ORMAT    [[152][201][151]]NSERT    [[152][204][151]]IST"
125 PRINT"[[152][210][151]]ETURN TO [205]ENU [[152][211][151]]AVE [205]ESSAGE"
130 GETA$:IFA$=""THEN130
140 IFA$="[198]"ORA$="F"THENIFX>0THENPRINT"[147]";:GOTO106
150 IFA$="[195]"ORA$="C"THEN200
160 IFA$="[204]"ORA$="L"THENPRINT"[147]";:GOTO300
170 IFA$="[196]"ORA$="D"THEN400
175 IFA$="[211]"ORA$="S"THEN900
176 IFA$="[197]"ORA$="E"THEN1100
177 IFA$="[210]"ORA$="R"THEN191
180 IFA$="[201]"ORA$="I"THEN600
190 GOTO130
191 PRINT"[147][210]ETURN TO [205]ENU...[193]RE YOU SURE?"
192 GETA$:IFA$=""THEN192
193 IFA$="Y"ORA$="[217]"THENPRINT"[217]ES.":FORW=1TO300:NEXTW:GOTO20
194 IFA$="N"ORA$="[206]"THENPRINT"[206]O.":GOTO110
195 GOTO192
200 PRINT"[147][195]ONTINUING [205]ESSAGE AT [204]INE";X
210 REM
220 GOSUB680:IFI$=""THENX=X-1:PRINT"[147][212]HIS IS HOW YOUR MESSAGE LOOKS..."+CHR$(13):GOTO800
230 A$(X-1)=I$:PRINTCHR$(13);:GOTO210
300 M3=0:FORY=1TOX-1:PRINTY:FORW=1TOLEN(A$(Y)):A$=MID$(A$(Y),W,1)
301 IFA$="
"THENA$=CHR$(34):PRINTA$;CHR$(20);
302 PRINTA$;" [146][151][157]";:NEXTW:PRINT" "
310 M3=M3+1:IFM3>10THENGOSUB500:PRINT"[147]";:M3=0
320 NEXTY
330 GOTO110
400 PRINT"[147][215]HICH [204]INE IS TO BE DELETED?"
410 PRINT"'0' [193]BORTS..."
420 INPUT"[204]INE [206]UMBER? 0[157][157][157]";LN
430 IFLN=0THEN110
435 IFLN<1ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...[193]BORTED...":GOTO110
436 PRINTLN:FORW=1TOLEN(A$(LN)):A$=MID$(A$(LN),W,1)
437 IFA$="
"THENA$=CHR$(34)
438 PRINTA$;:NEXTW:PRINTCHR$(13);
441 PRINT"[201]S [212]HIS [212]HE [204]INE TO BE [196]ELETED?"
442 GETA$:IFA$=""THEN442
443 IFA$="[217]"ORA$="Y"THENPRINT"[217]ES.":GOTO450
444 IFA$="[206]"ORA$="N"THENPRINT"[206]O.":FORW=1TO300:NEXTW:GOTO400
445 GOTO442
450 IFLN=XTHENA$(X)=" ":X=X-1:GOTO470
460 FORY=LNTOX-1:A$(Y)=A$(Y+1):NEXTY:X=X-1
470 PRINTCHR$(13)+"[204]INE [196]ELETED...":GOTO110
500 PRINT"[208]RESS [210][197][212][213][210][206] TO [195][207][206][212][201][206][213][197]..."
510 GETA$:IFA$<>CHR$(13)THEN510
520 RETURN
600 PRINT"[147][201]NSERT [194][197][198][207][210][197] WHICH [204]INE?"
610 PRINT"'0' [193]BORTS..."
620 INPUT"[204]INE [206]UMBER? 0[157][157][157]";LN
630 IFLN=0THEN110
640 IFLN<1ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...[193]BORTED...":GOTO110
650 IFLN=XTHENX=X+1:A$(X)=CHR$(160)
660 FORY=XTOLNSTEP-1:A$(Y+1)=A$(Y):NEXTY
661 PRINT"[207]K, TYPE LINE, LIMIT IS 38 CHRS"
662 PRINT">";:GOSUB2000
663 PRINT">":I$=""
664 PRINT">";:GOSUB2002
665 PRINT"[145][145] [146][151][157]";
670 GOSUB700:IFI$=""THEN672
671 A$(LN)=I$:PRINTCHR$(13)+"[204]INE [193]DDED":GOTO110
672 PRINTCHR$(13)+"[193]BORTED":X=X-1
673 IFLN=X+1THENX=LN:A$(X)=A$(X+1)
674 FORY=LNTOX:A$(Y)=A$(Y+1):NEXTY:GOTO110
680 PRINT">":I$=""
690 PRINT"[145] [146][151][157]";
700 GETA$:IFA$=""THEN700
701 A=ASC(A$):IFA>143ANDA<160THEN700
702 IFA=13ORA=20THEN710
703 IFA<32ORA>218THEN700
709 IFLEN(I$)=38ANDA$=CHR$(20)THENPRINT"[157] [146][151][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO700
710 IFA$=CHR$(20)ANDLEN(I$)>0THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [146] [151][157][157]";:GOTO700
711 IFA$=CHR$(20)ANDLEN(I$)=0THEN700
712 IFA$=CHR$(13)ANDLEN(I$)<38THENPRINT" ";
713 IFA$=CHR$(13)THEN730
715 IFLEN(I$)=38THEN700
718 IFA$=CHR$(34)THENPRINTCHR$(34);CHR$(20);
719 IFLEN(I$)=37THENPRINTA$;:GOTO722
720 REM
721 PRINTA$;" [146][151][157]";
722 IFA$=CHR$(34)THENA$="
"
723 I$=I$+A$:GOTO700
730 X=X+1:RETURN
800 IFX=0THENPRINT" ":GOTO110
810 GOTO106
900 PRINT"[147][211]AVE [198]ILE, [193]RE [217]OU [211]URE? ";
910 GETA$:IFA$=""THEN910
920 IFA$="Y"ORA$="[217]"THENPRINT"[217]ES.":GOTO940
930 IFA$="N"ORA$="[206]"THENPRINT"[206]O.":GOTO110
935 GOTO910
940 OPEN2,8,2,"@0:"+F$+",S,W"
945 FORY=1TOX-1
950 PRINT#2,CHR$(34)+A$(Y)
955 NEXTY
960 PRINT#2,CHR$(160):CLOSE2
970 OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
971 IFA>0THENPRINTA;"";B$;"[146]";C;D:PRINT"[196]ISK [197]RROR...[210]E-[211]AVING...":GOTO940
972 PRINT"[205]ESSAGE [211]AVED...":GOTO110
1000 PRINT"[215]HAT BULLETIN NUMBER WILL THIS"
1001 PRINT"[194]ULLETIN BE WRITTEN UNDER?"
1002 INPUT"[206]UMBER";N
1003 IFN<1ORN>50THENPRINTCHR$(13)+"[201]NVALID [210]ESPONSE (1-50)"+CHR$(13):RUN
1004 N$=STR$(N):N=LEN(N$)-1:N$=RIGHT$(N$,N):PRINT"[196]ON'T FORGET TO UPDATE THE"
1005 PRINT"[194]ULLETIN [201]NFO [198]ILE...":F$=F$+N$:RETURN
1100 PRINT"[147][197]DIT A LINE ON THE [205]ESSAGE."
1105 PRINT"'0' [193]BORTS..."
1110 INPUT"[215]HICH [204]INE? 0[157][157][157]";LN
1111 IFLN=0THEN110
1112 IFLN<0ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...":GOTO1105
1120 PRINT"[204]INE [206]UMBER"LN"IS [195]URRENTLY..."
1125 PRINT"([210]ETURN LEAVES [204]INE [213]NTOUCHED.)"
1130 PRINT"[152]>";:FORW=1TOLEN(A$(LN)):A$=MID$(A$(LN),W,1)
1140 IFA$="
"THENA$=CHR$(34)
1141 PRINTA$;:NEXTW
1150 PRINTTAB(39);"<[151]";
1160 GOSUB680:X=X-1
1170 IFI$=""THENPRINTCHR$(13)+"[206]O [195]HANGE [205]ADE...":GOTO110
1180 A$(LN)=I$:PRINTCHR$(13)+"[204]INE HAS BEEN [195]HANGED...":GOTO110
2000 FORW=1TOLEN(A$(LN-1)):A$=MID$(A$(LN-1),W,1):IFA$="
"THENA$=CHR$(34)
2001 PRINTA$;:NEXTW:PRINTTAB(39);"<";:RETURN
2002 FORW=1TOLEN(A$(LN+1)):A$=MID$(A$(LN+1),W,1):IFA$="
"THENA$=CHR$(34)
2003 PRINTA$;:NEXTW:PRINTTAB(39);"<";:RETURN